home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BoxKite.dxr / Untitled-1_10_kite line.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  927 b   |  32 lines
  1. property mykid, mykite, kid, kite, obj, dvector, spriteNum
  2.  
  3. on beginSprite me
  4.   obj = sprite(spriteNum)
  5.   kid = sprite(mykid)
  6.   kite = sprite(mykite)
  7.   kidloc = [obj.locH.float, obj.locV.float]
  8.   kiteloc = [kite.locH.float, kite.locV.float]
  9.   dvector = kiteloc - kidloc
  10. end
  11.  
  12. on enterFrame me
  13.   kidloc = [obj.locH.float, obj.locV.float]
  14.   kiteloc = [kite.locH.float, kite.locV.float]
  15.   dvector = kiteloc - kidloc
  16.   dlength = sqrt((dvector[1] * dvector[1]) + (dvector[2] * dvector[2]))
  17.   dunit = [dvector[1] / dlength, dvector[2] / dlength]
  18.   if dunit[1] = 0 then
  19.     dunit[1] = 0.0005
  20.   end if
  21.   if dunit[2] = 0 then
  22.     dunit[2] = 0.0005
  23.   end if
  24.   aAngle = (atan(dunit[2] / dunit[1]) * 180 / PI) + 90
  25.   obj.rotation = aAngle
  26.   obj.height = dlength
  27. end
  28.  
  29. on getPropertyDescriptionList me
  30.   return [#mykid: [#comment: "my kid", #format: #integer, #default: 0], #mykite: [#comment: "my kite", #format: #integer, #default: 0]]
  31. end
  32.